﻿Public Class TestingForm
    Dim country As New CountryList
    Private Sub TestingForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim dtCountry As DataTable = country.countryList
        Dim dr As DataRow
        For Each dr In dtCountry.Rows
            ComboBox1.Items.Add(dr("clCountryName"))
        Next
        ComboBox1.Sorted = True
        CmbCountry1.initialize(dtCountry, "clCountryName", "clCountryCode", "Choose Country")
    End Sub
End Class